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PROCEDURES LISP D'ANALYSE * 
DE RELATIONS HARMONIQUES, * 


` vw A. 
# 
v 


as: 4 sa as ub 
& 
g 


fa [A] 
As 


PATRICK GREUSSAY ` 


PAP APQPQPAPNE QD RP RAPRA 2 AP AP APRA up aa ARR P nn 
ww. ous vus "οσον es AA, PT Ὁ dde T db re ον S αν 


RESUME : 

L'ARTICLE DECRIT UN ENSEMBLE DE FONCTIONS 
LISP 510 DESTINE A LIVRER, A PARTIR D'UN 
ENSEMBLE DE HAUTEURS DONNE, LES RELATIONS 
HARMONIQUES LES PLUS ELEMENTAIRES, 
A SAVOIR : DOMINANTE, SOUS-DOMINANTE, 
TRITON, NAPOLITAINE, SENSIBLE, SOUS FORME 
PUREMENT SYMBOLINUE, 

L'ARTICLE A ETE CORRECTEMENT COMPILE ET 
INTERPRETE PAR LE SYSTEME LISP 510, 


L'ENSEMBLE DE CES FONCTIONS CONSTITUE UNE ZONE DE 
SERVICE D'UN PROGR AMME PLUS IMPORTANT D'ANALYSE 
DE FONCTIONS HARMONICUES DANS L'OEUVRE DE CLAUDE 
DEBUSSY, 

ETANT DONNE UN ENSEMBLE DE RECIONS HARMONIQUES ET 
LEURS PEPRESENTANTS REPERES, L'EMPLOI CONSTANT DE 
L'OSCILLATION ENTRE -NOM- ET -VALEUR- DE HAUTEUR SE 
REVELE FORT IMPORTANT DANS LE TRAVAIL COMPOSITIONNEL 
DE CE MUSICIEN, TOUTE ANALYSE EN PROFONDEUR SE 
MEPRENDRAIT A N'EN PAS TENIR COMPTE, 

POUR L'AUTOMATISATION CPARTIELLE) DES PROCEDURES 
D'ANALYSE, LE LANGAGE LISP A ETE CHOISI POUR LA 
FACILITE QU'IL OFFRE DE RENDRE TOUT OBJET SUSCEPTIBLE 
DE RECEVOIR DES VALEURS CTANT SUR SA P-LISTE QUE 
SUR LA A-LISTE), | 


ON DISTINGUERA POUR CHAQUE HAUTEUR DEUX TYPES 
DE -NOMS- : . NUMERIQUE (MODULO 12) 
. LITERAL 
REPRESENTES PAR LES DEUX LISTES DE PROPRIETES 
-l-L ET -2-L. 
CES CORRESPOND ANCES ONT ETE CHOISIES POUR TRAITER 
CONVENABLEMENT LES PHENOMENES DE SYNONYMIE 
CEX: DO # - RE BEML), 
POUR CHACUE LITERALE ON UTILISERA ALTERNAT IVEMENT 
, UN ATOME (DANS LES CAS DE NON ALTERATION) 
+. UNE PAIRE ΡΟΙΝΤΕΕ CALTERATION , ATOME) 


NOTA : '*' PEPRESENTE LE BEMOL, ; 


* 
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(MODE 2) 
RPLACA (C 
-D-L 
(DO SOL PE LA MI SI FA DO) 
) 
RPLACA € 
-S-L 
(DO ΡΕ MI FA SOL LA SI DO) 
) 
RPLACA ÈC 
-1-L 
((9 (DO Cá , SIDD) C1 (6 , DO) (X, RE))) 
(2 (RED) G CC αι RED G: , MIDD) (5 (MI Œ., FA)))D 
(5 CG, MID FAD) (6 CC , ΕΑ) CG, SOLD) G CSOL 22 
C8 CGA , SOL) C* , LADD) (9 (LA) 
| (10 CC , LA) CR, SIDD) C11 CSI (* , DO)))) 
PPLACA C 
— 
CCH , SI) , 0) (DO , 0) CCH , DO) , 1D 
CC , RED , 1) CPE 2) CCÉ, PE) , 3) CCG, MI), 3) 
CCF, FAD) a 82 (ΜΙ , 48) CO, MI) , 5) CFA. 5) 
CC αι ΕΑ) αι 82 (Οἱ , SOLD , 6) (ίσοι , 7) 
CCH , SOL) , 8) (CE, LA) , 8) (LA , 9) 
CG. LA) , 102 CC , SI) , 10) (51 , 11) 
CC, DO) , 11) 
) 
DEFINE CC 
; ETAMT DONNE UNE LITERALE, P-1-L LIVRE L'ENTIER 


DANS (0, 11) CORRESPONDANT DANS LA LISTE -1-L, ; 
(P-1-L 
(LAMBDA (X) 


(CDR CSASSOC X -1-1)))) 


; ETANT DONNE UN ENTIER PRIS D/NS L' INTERVALLE 
C0, 112, P-2-L LIVRE LA LISTE DES LITERALES 
ASSOCIEES A CET ENTIER DANS LA LISTE -2-L, 

EM FAIT P-2-L EST UNE GENERALISATION DE 
(SASSOC X L FN) X ETANT UNE S-EXPRESSION 


QUELCONQUE, ; 
(P-2-L 

CLAMBD/ (X) 
(CDR (COR 

(SASSCC X -2-L) 

(PROG CY) 
CSETO Y -2-L) 
A CAND 


CEQUAL X (CAAR Υ)) 
CRETURN CCAR Y222 
CSETQ Y (OR YO) 
(60 A222222 
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CABS 
CLAMBDA (X) 
CCOND 
(στ X 0) X) 
(T (DIFFEP 0 XDD) 


; CETTE FONCTION A POUR ARGUMENTS : 
CNOMI NOM2 NUMI NUM2 LISTE-REPERE) 
ELLE VEPIFJE SI . DEUX NOMS SATISFONT 
A LA RELATION NUMERIOUE: 
NUMI = ABS (VAL-NOMI - VAL-NOM2) 
. LES DEUX NOMS EN TANT QUE 
COUPLE DE LITERALES FORMENT OU NON UNE SOUS-SUITE 
DE LA LISTE REPERE (PAR MATCHINC LITERAL, AU 
MOYEN DE L^ FONCTION CSQ), 
CEX: MALGRE LES MEMES VALEURS NUMERIQUES 
LE COUPLE DOR - LA BEML N'EST PAS UNE QUINTE),; 
CIS? 
CLAMBDA (X Y MN L Z) 
CPROGN 
CSETQ Z (ABS (DIFFER (P-2-L X) (P-2-L Y)))) 
CCOND 


222222 


ΣΠΑΡΡΕΙ 5 : 
1 , BIEN QUE GET SOIT EVIDEMMENT UNE SUBR, VOICI 
SA DEFINITION ΕΝ S-EXPRESSIOHS: 
(GET (LAMBDA (X Y) (COND 
CCNULL XD) 
(KES (CAR X) Y) 
CCADR XD) 
(T (GET (CDR X) Υ)) 2232 
2 , EN LISP 510, SI -TOUS- LES PREDICATS 
D'UN COND S'EVALUENT EN NIL, LA VALEUR DE COND 
EST ALORS NIL, ET NE PROVOQUE PAS DE DIAGNOSTIC 
D 'EnREUR, 
3 , UNE FONCTION PEUT COMPORTEZ A L'APPEL 
- PLUS D'ARGUMENTS QUE PRFEVU, ILS SERONT 
EV ALUES MAIS NON TRANSMIS. 
- MOINS QUE PREVU : LES ARGUMENTS ABSENTS 
SERONT PA? DEFAUT EVALUES A NIL, 


LA FONCTION CSA y οἱ LE COUPLE (X1 Y1) EST 
ACCEPTABLE COMME ELEMENT DE LA PELATION SUP LA 
LISTE L, P AMENE -EN VALEUR CE COUPLE, CONVE- 

NA BLEMENT ORDONNE, ; 


7 
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si 


(CS? 
CLAMBDA CL Xi Y12 
(nno GN 
(SETO X1 (COND 
CCATOM X1) X1) 
(T (CDR XIDD 
CSETA Yl (Corp 
CCATO Yl) Y1) 
(T (OR Y12222 
C COND 
(«ο (GET L X1) Yi) 
(LIST X YD 
(CEN (GET L Y1) X1) 
(LIST Y XDDD 
; ?1S? APPLINUE LA FONCTION F AUX ARGUMENTS 
X ET Ts 
(2157 
CLAMBDA CX Y F) 
(PROGN 
CSETQ X (F X YOO ` 
CCOND 
(X (LIST CCADR X) (CAR X2222222 
; VOICI LE GROUPE DES FONCTIONS 
D QUI DOMINANTE 
N CO2PESPONDENT NAPOLITAINE 
IS?-T RESPECTIVEMENT TRITON 
SD AUX SOU S-DOMINANTE 
S P2EDICATS : SENSIBLE ; 
(1ς2-0 


CLAMBDA CX Y) 
CIS? X Y 5 7 -D-L))) 
CIS? -N 
CLAMBDA (X Y) 
(2152 X Y CQUOTE 15?-9)))) 


CIS? -T 
(LAMBDA CX Y) 
CCOND 
CCEo 6 CABS (DIFFE% CP-2-L X) CP-2-L Y2222 
(LIST X Y))))) 
CIS?-SD 


CLAMBDA CX Y) 
(2152 X Y (0UOTE IS?-D 2222 
(15?-S 
CLAMBDA (X Y) 
CIS? X Y 1 11 -S-L))) 
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(X-5NEL 
CLAMBDA (F NSH Y Z) 


CP?OGN 
CSETO Z (F (CA? M) (CAR N22) 
C AND 
Z 
(SET NSH (CONS Z Y222222 
C$ RELATIONS 


CLAMBDA (L) 
CPROG (M N L-D L-SD L-T L-N L-S) 
(ΤΕΡΡΡΙ) 
CSETQ M L) 
A (€ AND 
(NULL CCDR M)) 
CRETURN CEDITL 522 
CSETO N CCD? M) 
B (X-SREL (QUOTE 1857-D) (QUOTE L-D) L-D) 
CX-$REL (QU^TE IS?-SD) (QUOTE L-SD) L-SD) 
(X-SREL (QUOTE IS?-N2  (OUOTE L-N) L-N) 
CX-SPEL (QUOTE IS?-T2) (QUOTE L-T) L-T) 
(X-S$PEL (QUOTE IS?-S) (QUOTE L-S) L-5) 
CAND | 
CSETO N (CD? NDD CGC B2) 
CSETO M (CDR M2) 
(GO ADD) 
CEDITL 
CLAMEDA Ο 
CPPOGN 
(PRINT CQUOTE L-D)) 
CPRINT L-D) 
CPRINT (QUCTE L-SD)) 
(PRINT L-SD) 
CPRINT CQUOTE L-T)) 
CPRINT L-T) 
(PRINT (NMUOTE L-N)) 
(PRINT L-N) 
(PRINT CQUOTE L-5)) 
τ CPRINT L-S)))) 
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sps 


59ELATIONS ((DO ^E MI FA SOL L^ SID) 


L-D 

C C MI SI D CLA MI ) C 2E LA 2 C SOL RE ) C DO SOL 5 ς FA DO 
) ) 

L-SD 

C CSI MI D C MI L^ ) CLA RE D C RE SOL D € SOL DO 5 C DO FA 
) ) 

L-T 

C CFA SI 2 D 

L -N 

CCFAMI D C DO SI D D 

L-S 

C C MI FA ) CSI DO D D 


; "^ * — DEBUSSY : NUAGES , MES 1 ; 


SPELATIONS (CSI CP , FA) o, DO) MI (X, SID RE (48 , LA) LADD 


L -Ώ 

C C 2E LA D K LA MI) CC FA) CE , DO D D) C MI SI DC 
SI CH, FA D D) 

L -SD 

C CLA PSE D CM ΙΑ 2 CC, DO) Cá, FA DD CSI MI D CC 
B8. FA ) SI 2 

LT 

CÇ CMI CH, LA 20 CMI CN, SI 22 

L -N | 

CCC* , ST D LA D (PE Cá, DO DD CSI C # , LA D D D 
L-S 

C CLA COF a, SI 22 CCS DO I REI CCE ,LA 2 SI D D 
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NOTE 
MALGRE SON ΧΕΧΤΒΕΜΕΝ SIMPLICITE, JE SUIS TOUT A FAIT 
CONSCIENT DE LA DIFFICULTE DE LECTURE DE CE PROGRAMME 
POUR LES PERSONNES PEU FAMILIERES AVEC LE LANGAGE LISP, 
IL EST CLAI” QUE CETTE DIFFICULTE EST CHRONIQUE. 
PESTE QU'APRES UN CERTAIN TEMPS D'ACCOUTUMANCE, 
L'ELEGANCE ET LA CONCISION DE CE LANGAGE DEVIENNENT 
FRAPPANTES ET PERMETTENT LA NOTATION ET L'EXECUTION 
DE PROCESSUS FORT LOURDS A EXPRIMER AUTREMENT, 
DE PLUS, LE PROGRAMMEUR D'EXPERIENCE Y RECONNAITRA 
A COUP SUR LA FACILITE BIEN CONNUE QUI LUI FAIT 
SOUVENT PPEFEPER UN LANGAGE MACHINE COMME SUPPORT 
D'EXPRESSION DE SES ALGORITHMES, A SAVOIP L'ACCES 
DYNAMIQUE A TOUS LES ORJETS, EN PARTICULIER POINTEURS 
(TRAIT QUE PL/1 POSSEDE EN PARTIE) ET DONNEES EXECUTABLES 
I.E. PROGRAMMES, 
ENFIN, EN CE QUI CONCERNE LES MUSICIENS, ILS 
PRENNENT A CE LANGAGE UN PIED CERTAIN, 
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dacqua: DUPRE 


tor T— ΑΛ ΛΑ Αλ αφ 
UNE FORMALISATION DES COULEURS / DEUXIEME PARTIE" 
Pette i 


= CHOXX D'UNE GAME 
Dans l'ensenble continu des — choisissens une gamme régulière 
de 12 nunérotées de O à II;1os dénominations du langage courant les plus Fois 
pines étant données dans 16 — suivant: 


0 | vort 
I  vertojauno 
2 jeune 
3. faune orange ` 
4 | orange | 
5  xouwge ` 
6 pourpre 
7 violet 
8 outromer. 
9 blen | 


IO(X) bleu cyené . 
= TÚS) blou vort 
Dens la gamme des valeurs,nomes n'utiliserons que celles désignées pas un 
nombre pair,d'oh le tableau: | 


0 | noir | 
2 σός foncé 
& foncé 
6 clair 
8 trés clair 
10 blane 


Neus obtenons dono un total de 4 x I2 = 48 couleurs plus le blanc et 
le noir éventuellement.Dans le traitement par ordinateur,pour économiser 
de le: place en ménoire ot pour interpréter une entrée de tableau,on peut 
utiliser une notation numérique de O h 47 femilement àdécodable. 


€ Voir ARTINFO - MUSINFU n^ 1: 
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Soit X le N*do la couleur,7 et V,sa teinte et sa valeur. 
K =< 4% + 7/2 «4 

T=X%4 (X désignant 1& division ehtibre) 

Y = 2(X - 47 + 1) 


Le programmé ALCOL engendre des couleurs de fécon aléatoire.Teintes et 
valeurs sont traitées de fagon indépendante comme sí l'on siperposait une 
répartition de lumière et une disposition de teintes.Il est écrit em ALGOL 60 
pour tre traité sur une CAB 510. | | 

La procédure TEIB(T) fait apparaitre la teinte T avec la probabilité 0,6, 
les teintes T + 1 et T — 1 avec les probalités 0,2.Utilisant la propriété de 
récursivité de 1'ALGOL,la procédure peut s'appeler e11e-mÓme;on obtient ainsi 
des répartitions"en cloche"autour á'une teinte,de plus en plus aplaties. 


m + 
, TEIN(TEIN(T)) — 
?EIN(TEIS(TEIE(7))) 


La procédure CÓN(?i,T2,PTI) fait apparaitre la teinte TI avec la proba- 
bilité PTI,la teinte T2 avec la. probabilité 1 - PTÍ.Elle peut s'appeler 
elle Ἀθαο et aussi appeler. TS&IN.Per oxemple,pour avoir une répartition de 
80% dans les verts peu ótaláe et do 20% dans les rouges trés étalée, 
CON(TEIE(TEIE(TEIN(5))),TEIN(0),20) donne la distribution: 


ame a. Ae —— sata — uir: evum ` 


4 | | | A. 
0,16 [0,48 | 0,16 | 0,002 [0,014 0,045 |0,072| 0,048 [9,014 0,002! 
On peut ainsi obtenir une grande variété de courbes à deux bosses qu'on 


pourra utiliser par exemplo pour doser des effets de eontraste au niveau 
microscopique. 
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Péur distribuer les valeurs,on utilisera la procédure CON.Ainsi, pour 
obtenir 506 de la valeur 8,403 de 6,105 de 4,on appellera: 

CON(8,CON(6,4,80),50). 

Les deux procédures décrites,dont on a limité volontairement les possi- 
bilités en tant que génératrices do lois de probabilíté,définissent un voca- 
bulsire qui,considéré comme une application dens l'ensemble des sensations 
esthétiques réduites à un domaine limité d'une oeuvre,n'est évidemment pas 
eurjective.Ceci signifierait quo tout tableau peint ou à peindre pourrait 
être consid6rd comme une conoatdnation de mots de ce vocabulaire. 

L'apprentissago permet h l'utilisateur d'acquérir une bonne connaissance 
d'une pert de l'application,d'autro part de l'ensemble image de celle-ci, 
c'est h dire des sensations"signifiées"par le vocabulaire. 

Les atomes,qui sont soit une juxtaposition de trois points des teintes 
fondamentales à luninositó variable dans le cas d'utilisation d'un écran 
oathodigus,soit des carreaux peints à l'aide d'une palette des 48 couleurs 
dans lo cas d'une réalisation manuelle,peuvent être interprétés par des ma- 
trices 4x4 dont les éléments sont des points de couleurs fixées ot en nombre 
trés linité. 

Nous insistons cur le fait qu'il s'agit d'une interprétation,qui eat voi- 
sine de procédés utilisés par don peintres comme Seurat,et non d'une produc- 
tion des couleurs ainsi que l'entendrait par exemple,un technioien de la té- 
lévision.C'est un moyen simple de sortie d'ordinateur à l'aide d'une téles- 
criptrice h touches muníes de tanpons de couleurs,qui accentue l'effet voulu 
avec le programme ALCOL. | 

Dans une matrice,le faoteur de diffusion moyen est le barycentre des 
facteurs de diffusion des couleurs fondamentales,pondérés par le nombre Ge 
fois oà chacune apparait.Les teintes intermédiaires sont obtenues par addition 
optique,d'où la poosibilité de calculs. 

Notre choix s'est porté sur les colorants de base suivants: 
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alle 


Couleur 
Yert(Y) 


Jeune(J) 2/8 
Rouge(R) 5/6 
Bleu(B) 9/4 
Blano(b) [x 
Noir(N) /0 


Nous allons traiter quelques exenples de distribution des points colorés 
pour obtenir une couleur donnée avec un facteur de pureté maximum.Dans 6ette 
hypothèss,n'interviennent que 100 doux oelorants dont lés teintes enóadrent 
la teinte ddairde,et soit du blano,soit du noir. 

-Rouge 5/6 | | 
11 s'agit d'un colorent de bass,done 16 R composeront le module. 
-Rouge 5/8 | 

Pour sugaenter le luminositó,il y aure n points blance(b) et (16 =) R: 

16250 = nx90 + (16 = n)xf8 

D'où l'on tiro n o 6, 

Rouge 5/4 | 
 8oít n 19 nombro de pointe Ns. 

16.16 = ax5 + (16 - 8 (Ἢ 

D'où l'on tire m nä. 

Violet 7/4 | 

Pour obtenir la teinte,il faut ajouter à valours égales du rouge et du 
bleutsoient 8 pointe donnent la couleur 5/4 et 8 de 9/4 (B).Compte tenu de 
l'exemple précédent, on obtient: 4 R,4 ΒΘ B.Le rapport 8B/AR caractérise la 
teinte 7 et sere conservé pour les autres valeurs. 

On obtient dono enfin un tableau 48x6,qui pour cheque couleur donne le 


nombre de points de chsenne des 6 couleurs fondamontales qui interviennent 
dans la matrice 4x4. 
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Un sous-programme qui s'utilise en sortie de ALCOL ou de tout autre pro- 
gronne compositionnel,répartit aldatoirement les points dans les modules tout 
en respectant leur répartition numérique. 

Pour obtenir des couleurs non4puüros,on peut décider de faire intervenir 
trois colorants de basso, plus éventuellenent pour les valeurs extrémes du blanc 
ou du hoir;les calouls;aui donsistent alors em des résolutions de systèmes ἀ" 
équationo linéaires seront exécutés par un ordinateur. On aura ainsi à disposi- 
tion plusieurs jeux de éonnéen(tablenux 48x6)pour le générateur de modules. 


T extanaien 4 de lois microscopiques par simple utilisation de la transivité 
de 14: relation de voisinage peut donner des résultats étonnmte.Ce processus 
&'intógration,dsno tous les domaines où il est utilisé permet la confrontation 
aveo lo τέο] acodssible é'hypothèses établies à un niveau élémentaire. 

Dang le programme GbD,le couleur do teinte SEG.(1,J).et de valeur SEV.(I,J). 
est conditionnés par les eouleuro du précédent  vertioal(ssa.(1-1,J)., 
SEV.(X-4,J).)et du précédent borisontel(S8n. (1,J-1). 887. (1 ,;J-4).)de la façon 
euivente: | | 

«8E0.(3,7).d01t être un — possible do SEQ.(1-4,3).et de 
SEQ.(1,J7-2).àena un graphe de tointes donnée. 
-SEV.(I,J).oot ensuite déterminé à partir de critères sur la distance de 
lm teinte trouvée à l'uno ot à l'autre des teintes précédentes (appel de 
la procééure DIS). | 


On peut cuivre cur l'organigranme du prograume GBD 1o fonctionnement de 
cet eutonate., 
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ORGARIGRANNE DE GBR (version 2) 


Gén f — de. 18 


[xc ,J) e t@ Teinte aléatoire admises comme 
| : poe eu )ssible de SE 


f oy $ 
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Génération 
bme 144 


| SEQ. 2,1 sin Teinte a 


AM 


oire 


EURO UE d 


adnise 


adnise comm 


στι 
4 —ñN Mpoeur de SBO, xt SEC 


ὶ 8 : 
—— JA ΑΣ Pu ud | N z Ae EUR 


2,7-1).,SEQ.(2,J). 


SEQ, 


229 


La SEV.(2,3).1= Valour — à 


À 


r | SEV.(2,3). 1» Valeur opposée à i 


| ow | 
on do la 


XL: LA: 


http://www.artinfo-musinfo.org Artinfo Muslnfo # 13, 1972, page 15 / 23 


22 3232 AD AN AS AS 52 32 AR AS AS AR QE AS ASUS US AP AS AS AS AP AS AS RS 
Lá Lá u bo u ενα LT AT LT ἀπ fh fu VA LIT IS wu ον αν συν CA ἐν έν «νυν ia 
LY aa 
[A] PAS 
aa sa 
f J.DUPRE ALCOL * 
8 ! 

a a» 
CA] PAT 
` AR IS AS 4Ρ A» 

du 


far an 5 Ar 42 Ka αρ 232 22 32 42 42 p AZ 
LÁ Lá LÁ LL AA Cu VA ὧν έν Zb ἀν CY Mhá sub x. fv er dy 


1 'DEB' ' ENT! I J N, PAL; 

2 EXLCO#N PSG); IMPR; LICLAVCN, P); 

3 'DEB' 'ENT' 'TAB' T, V. CLIN, 1:P2,; 

n 

5 "ENT? "PRO ' PMOD CX, Y); 'ENT' X, Y; PMOD:=X-X%Y*Y; 

5 

7 "PRO 'ALEA CAI); 'ENT' AL; AL: zPMOD (AL*7, 997 2); 

8 

9 ' BOO ' TPRO'SUGGCX, Y,22; 'ENT'X, Y, Z; SUGG :zZ' SUG' X' ET! 
10 Z' INF'Y; 
11 
12 'ENT'! 'PRO' TEINCTO; 'ENT'!T; 

13 '"DEB''ENT'Y,Z; ALEACAL); Z: =PMODCAL, 100); 

14 Yiz'SI'SUGGCO,60,ZD 'ALO'T' SIN" 

15 'SI'SUGG(60,80,Z)'ALO'T+1'SIN'T+11; 

16 TEIN: =PMODCY,12)'FIN'; 

17 

1 ENT! !PRO'CCNCP1, P2, PT12); 'ENT'P1,P2,PTI1; 

19 'DEB' 'ENT'Z; ALEACAL2; Z: xPMOD CAL, 100); 
2 CON: z'SI'SUGGCO, PT1,Z2) 'ALO'P1'SIN'P2'FIN!; 
21 
22 'PRO 'PRINTICX); 'ENT'!X; 
23 "DEER? . 
2l 'SI'X'EG'10'ALO'EXLC? XQ) 
25 '"SIN''SI'X'EG'I1'ALO'EXL(? ZQ) 
26 'SIN'EXE(2,X)'FIN'; 
27 
28 TFROTPRINT2CX): 'ENT!X; 
29 '"DES' 'SI'X'EG'2'ALO'EXL(? 82$) ! SIN! 
30 '"SI'X'EG'&'ALOT'EXLCO IUS QD! SIN! 
31 "SI'A'EG'GTALO'EXLCO #G$QD'SIN'EXLCC#BS@D'FIN"; 
32 
33 EXL(C9 ALSO); IMPR; LICLAV(AL); 
3h '"POU'I:zI'PAS'l'JUS'N'FAI! 
55 'DEB''POU'J:zi'PAS'!1'JUS'P'FAT]! 
36 DEB' T. CI, J), ?=CONCTEINCTEIN(TEIN(5))),TEIN(0),20); 
37 V. CI,U2, : =CONC8,CONC6,4,80),50); 
38 PRINTICT.CI.U), ): 
39 PR INT2CV.CI, 02,0; FIN’; IMPR; 'FIN'; 'FIN!; 'FIN'4 
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SA an 
€v yx 


aP kp XA 


254 XA ap RD AA ap x 
«Ὁ χο cw dt αν fu tu (ν ἵν e 


ALCOL 


32 32 32 ARS 


xa... 
TS Ἤν εν day S4 


en 


1 '"JEB' ENT’ I, u, L; Z, AL,V,8,B,N,X,H,AÀ; 'ENT' * TAB! 

2 — (0: 11,0: 115., 

3 2. 1:2, 1:202,, SEV. C1: 23. ο μι ο 13 DPI 

Η E 2 47,1:5),.; 

5 

5 ENT? TPRO'P HUD (X, Y); ' ENT'! X, Y; PMOD:=X- -A5Y*Y; 

7 PRO! ALEA; AL: ZEHOU ALADI, 9973); 

4 MENT! PRO! DISC Vos ENT! Χ, Y; OIS:z'SI'ABS(X-Y)' ING? 

9 6131? 

19 ABS CX- -Y)'SIN'!12-4 BSCX-Y); 

11 PRO tECCX2; "ENT! X G ! SI X'EG'O' ALO EALCOVOD ISIN" 

12 'SI' X! EG'2'ALO*EXLC9? JOD STi! 

13 'ST'X'EG'5'ALO'EXL(9?2QD'SIN' 

14 ISI IX ITEG'O ALO TEXLCOBGA) STN! 

15 !'SI'X'EG' 13'ALO'EXL (ον)! SI«'EXLC?9 0); 

16 

17 LIATCCTEIND; LIRTCCC): 

15 EXL C HALG); I MPR; αρ κα αν. 

19 ΙΞΟΜΙΘΕΝΕΣΛΤΙΟΝΡΠΕΜΙΕΚΕΙΤΟΕ; 
2 Lom, ΕΙ C1, 1), : SPHIUD CAL, 125; 'Pou' Je zo PAS! 
21 1'JUSTI1 FAI! 

22 L:=L+TEIN.(SEN 2. C1, TUNIS 1 LEN Γρ ΑΟ PALL REM; 

23 POJ! J:=21PASt1tuUstont FE τον κ 

24 RE + ALFA; SEQ CL, J), 1 EPROD CA L, 12); 

25 ALL! ST! TET. (SEQ, Cl, J- Ta a τ, J2.2.'EG'!1'AL2'! 

25 ENC'SIN! ZES αν ο 93 
27 'IPOU'U:ci1'PAS'l1'JUS'20'!F Fad! 

23 ο s ΤΣ 'TTLT; 

25 Z:=DISCSEQ. C LU) SEQ C1, 42.27 

20 'SI!'Z!SJG!5tALO! SE yy yC, g e! =PMODCGSEV, C1,dJ-1), +2,4)'STN! 
34 στο Z!INGS 114, ο σεν. (1, Ea s =SE£V/.(1,J-1),'STiy! 

32 TILTSUOEB'ALEISSEV. C1, 0). : SPHCD CA L, Βλ ΕΙΝ ἕν 'FIN 

22 t Ol. "GENERATIUNDEUXIE iE LIONE; 

34 GLUP ALES; IISPMODCA bs 1921} !P ugu'J;zI'Pas'l'JgJgs!'20'FAI' 
35 . που  BI2EPI LEA; SEQ. (2,0), s =PMOD CAL, 12); 

30 ISI J EG E ALO TALLI Top; anc! ' ST! 

37 TEIN,CSEOQ.CI, JJ., SE Q. 2,902.25. EG'i'ET' 

33 TEIN, (SEA. C2, 9712. , SEQ. (2,;42.2.'EG'1'ALGO'! eLONC'SIN'REP; 
5 TOP: ALL'S? TEIN: (SEQ. 615,125, SEQ. (2,1). ). '"EG'1'^ALO! 
49 CLONC'SIN'3EP; 

41 CLONC: *FIN'; 

le 2 'POU'U:czI-i'PAS!'-1'JUs!]'Fij' 

4 5 DEBEO: ALEA;SEQ.(2,J0),: SEOD CS L, 122; 

L4 MALLIT !' ST! TEIN, (SEO Ci, Πλ. € 4. C2, N ).'cG'1'ET' 

"5 TEIN.CSEQ. (2, J+1)., SEQ, (2 V)). EG t1t3asLO! tom 
LG CLOND:tF325 

47 'POU'u:czi'pPAetitgue!'2gte a! 

Hs COEDUTSITQg'EO! ΑΟ DEBT 2:52; ' ALL 'HGUHINE!'F INT: 

49 Zi =JISCSE(, (2, jJ “i),, SEC Qe C2; JJ. 2; 

IE MOUNIRES L:-DISCSc. C1, 4).,5EQ. C2, J). 2; 

51 E M ne VIDER SEV, (2,J92.:7ScV, Cl). La 

ον TRUC'F In! 

53 SI! κ. io 1'ÀLO M DEEE. (2, d. -SEV.(2,U-12,.; 'ALL! 
Gt; Tai ΕΙΝ 1; 

55 beri SUG 5! ALO! 'DEG' SEV, (209). ; zZPHUDCSEV, (1,9), 42, 83; 
55 '"ALL'!'TOUC'F IH 
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CO $2 C3 = CO ja C2 Ο = 


LS 


$2 CD te 


(3 


(D CI js = = 


{D 


2 


C2 ts 


CO VO OY ulutr 


CO ¿> Co 0 CO V, ID V ND I CO ο vv N 


Zr 


M (ΠΠ 53 ¿Y Ty CD E 


` 
«2 ja 


i 


VN 


MEME JI SS “i NG 
U. MJ ο) Ann T+ 


(O 


v N 


E We 
Cu `. 


32 


CD p j=3 C (7) FRA dj C 


CD 


C2 


9 


O 


«δις, CI) (23 (D t. Ο C 


` 


CI 


1SI'Z'sJG'5'4aLO!10EB! 


SEV. (2, JY. : ze H0D (SEY. (2, 0-12, 42, ἃ 
UC : 


LEA; SEV. (2, J). : =FMOD CAL, ἃ Ἂχ TK 
"COM T EDITICH; 

Pou! I FL ο LIJJSI 20T FAD DE p! 
L: I SEQ. C1, ID, ΤΕΝ, C1, 12.2 
V17C.(L, 1).,541=0.(CL,22.35:1=0. CL, 
N:zC.CL,5).; 
H:=16-(0V+J+7+53+N2; 


32.4 Bt 


'rOJ'K:cza"*CI-1)e1'oaS'l'uus' 5" CI-i)eh'FAI' 


1'PiS'l'uJS'h'F^I''bgg' 
~a C3, C4, C5, C6; At zAL; 


"COUTE 
' AIG'CO 
ALE A 8 Z: 


= e. a 


M S0 FT. i; 
C2: 'SI'J'sur! O'ALO'DEB'T,(K,L)., 
MAU Ἱ ΕΙΝ; 
C3: 'SI'A' SUP'Q' ALO' 'OEG' T. CK, L). 
MAO'FIN'; 
Cü:'si's'!sg "DED T. CK, ο, 
MAO'FIN'; 
C5: 'SI'N'SUP'QC'ALO''DED'T, CK, L5. 


iP 0”, ALO 


Ma ΕΙΝ” 


CS:*SITHISUKTOTALOT1DEETT,. (K, L) 
MAO'FIN'; 'ALL'C15 MAO: 
IFINI FINIS 


SPOU'LizI'PAS I JUS HIFAT DED! 


φ 


FHOD CAL, μμ, VZ): 
Cl:'SI'V'SUP'O'ALO' DEBIT, (K,L).:20; V: 


D-715;N:z2N-1;'ALL' 


-1;H:-H-1; “ALL! 


POU'K:zl'PAS'I'JUS'ÓO0'FATI'EZCT. CK, L2, J; IMFA ! FIN; 


!'eogturzl'pAS 'l'JUs'20'F4 I 'oEG' SEQ. C1, 02, : 
FIN? SALISA; 
LL'GLUr; FINAL: ΕΙΝ Τῇ 


Sali, J). ZSEvV, C2,42.37 


' SI'CL ECID'ALO' ALL * FINAL; tu 
123238 μμ 
δν DONNEES * 
EE TIT TEIT LINEA MI D easta 
110001 1 1 1 3 1 0 
0 
011505 00111 3 0 
ο 201110102 129 
1290951 19 C C 1 1 1 
0 1001111509 
ο 11 100 1 0 € À 1 © 0 
0 060 6 το ο υ ο 11 1 
6 9 0 9 1 1 
1120005 15 05 2 € ο Ó vo η 
2 3 05611 47 9 605 5 4 50 
4 9 0 12 93 9 2 5 16 5 3 
04221097 3 95595 0 
D 24 3162 493 3 4 0853539 
SR 0.03 ox ο πο 43045 
Q ho X 3 5 w^ X» * 5 Ú D ax 5 
4 3 U ω rA ὁ J MI J Q 
95595485 6 5 3 5 U 4:65 tt 9 
03 163 0 9 3 1153 0 2 7 
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=SEQ. (2, d).; 


η 


na 0 & 10 909 16 0 0 0 0 13 0 0 0 0 9 
Ἴ 
D QC & 10 & 0 9 9 3 & 0 0 10 0 3 0 0 6 


N 6219979294 3 1090406003 


cs << D M 


<. 


.. WA 
fu “` 5 


«2 a, np 
fé du dan 


AL 
"d “7 
. 2 
s- 

5 


= BURNNRNNNRBNN RRBYNVBBBB JURJJUR BRBJNNNNNJNR B BR RBB RR R 


M SNNNNBNNNBNNN JRRBBVNBBBB JRRRX R2 BBVUNNNNVUA 5 BAR Re RRR 
opt tJNNNGNNNBNNN JRRƏBBBBBEB JARY RRIR  YNNNVNJNR RB ον 28 B 
CSBEENNNNSNNNBNNNUJARKBNBVBBBB RR IRR R JNNNNNANRRE RRR RR RR BS 


EVBJNNN2NNNRBNN — JR VBNBBVRV JURRNNNRZ PUJRRRRB VNONVVVVJUNR 2A 
SOVOANNNAONNNNNNN3UJRAVVBBBNEV | 232BNN ? RNRPRAID RVNNNNVVVUANa PR 
3VLESNNNBNNNBNNNJ RRVBNNBBBN< JARNNNNR AR Dia N 8? JNNNVVVNUJRRRR RR 
CVGBNNNNNNNNASNNN JRRBEBBEBNV J32BNNN B J2ŠND2 —NUYNNNYNNNRRN RR 

V432HNN& BNN? BNNRNNNJURRNBEVBYNB JRKRR RRRKRJNRRNINRNNREJIRJRJ RR 

VE NNNRNNNNNNNSBNNU NRNBEVEVEN JRRR 222XRNIRRRJIRRJIRRJNER JRR 
2420 JANNENNNEBNNBNNN | RXNBVVRVBB Jäk 3 4XAG4RNUXRA2NARUURRAKRN JRR 
S 5 ΣΣ NNNNANNENNNNNAN J22B8BBBBVSN J3R R3 PRRRJN2SNJIRNNRRJNRN JRR 
JHNND5 L 2UN2NBNNNN <JRNYNSESYVEYNVYR n4 
NNN < — FRNINRNNNNNURNB VHB BSVBNYVR:2R 


KNN 


3NNN343 SINNNRNNNINRKVBDBBVYBNNBVVR N 
HENNI REBNNSNBNNNRUS3VBBBDbEBNNVEVV R 


ha. 3 


JRRRR RKRRJNRRNRJINBNNGNNN JR 
RRRKARJJN:RNJINNE BNNASNNNJUJUR 


2504 RRRRNN3I3RNNI JIRJRNBSBV ES Jr 
PKKRRNN2 NNINRRNNIRVBNB | RRJJIRKR 


E 


^ JJ239KNNNURNNNUSSRNUSVVEN JJa RRRRI 2:RRRNNR2JINJRNNNNBNNNEX a3 
ib | J3A3AANNUNNNNN&3RA2URBBBONKURXSU PK 7 RKRIRJRIRNJIRRNNNBNNNR AR 
22227 RBBNRKRNJIRR YVNNNVYNNBNSUVRK J RKR IRR JIN RKRRNRNNNRINKBVBVBVSSI RRRRDN J ` 


RR RBBVVBBVV 
RARRRIENVVESNE 
RRRRR  RNNVYNVE b 
RR RBYVVYLNVE 
RRR IR VNNB JJR 
aR RRNBBV RR 
RARKRRRVBYV Ji 
ὃν  R«VVVVR UAR 
JR R RENVER RR 


JAKR 2VVVN RR 
RJKRRR RBVVV RR 
RJRRRR ΝΥΟΥ PR 


222 NU RR JIRJNINNNIRKXNINVNB DNBBB J 2BVESV ENV 
ARSANNHRUNJJJJNJJUNNUJRRBVBBSNBB RRRVYBNBBVYV 
2RRJIRRJNINRIRNIRKJNNNIRKHBEBBEBYV JRKVEBNVEVV 
O4RSJANJNNNNURNRUNJRRIS2 VVNNVBNVUdRRBBBNNNVV 


DBABBZRJu Ὁ 
RRERE JRRR R 
JRRB RR JERR 
JURARRER JRR? 


n 
` 
J 


Ri 
N 
m 


ee DS3SNBANNUNNS BBNNBVVVBBVNU JJ JuRA«RURNNARDBNAONNNUNA2NBNGBVVNN | JERNENJ Jr 
: 2 B N2ENRRNNN2NR VBNNNBVYVVENBRRRRRJISRRaRRJNSR BNBN SNNNJYN<R BEBNBSBBBJJRRBRBNRK Ὁ 
I2 2 2R BANNNRSNNNURAS'2BNNNVEBVBVBDRJ 2JRRKRKRRRIURRKRNBNNNNNIRRRVBYNVBSN FRRRNDNSJK:< 


JN JNRRKNE3 V VE VENNEVEE R SVVBSV3DBDBVNVBVNGOA 
INNNRIKRNV VVRV 
NNNNN3NNB VEB 
S00 INNNNENN VVBB YNNNBYNN% 
LT pdNNN3 DPS3NNSNNJN? NIRNNNR NN < 
ΠΠ ENNNNSR NNRK3 NNJIRNINNNIENN  S«BDVVBVNVBBNVVBVB JRIRNNNRRRR3IJNK 
ΕΝΑΝ 32 NNR R NE NNNR NNNKX NN IRR RNVYVYYVYVYBEGBVBBBNX ?2:22NNNR232RJNRA 
2 NNNBNNNN? < NNNNNR R NNJRNN<X 2 BNVVBBNVBBBVBVNN | 2RNNNNRRRRJJIRR 
š: 9 J . 3VDBVRRNNNUANV Rd 9?8BNBVBVVJ 288988 Je NNNNRRR2JJ<R 
ΜΕ» JJRRB V PKƏNNNRNVVB J SRBBVBNNVV JJ«BNBB 224U0NNN2RARSRNA 
- dew JRR V VNRNNA3JA4NBB JRRNBVBGNDBBV<IRG2R VNBBJJ 23NRNNSRRSUNRS 
OLET à YNRRNNNNN 238J PROVVNVVbBV. JXVVYNJRRRRNNNRRRRJNNR 


Ll. 


JRVBDNBBBNNVVVVY8&D J338NNNNRRNBNDBN 


DM 


^ ων RB JRSNRUNNNNNN ον 3a8BBVió3JJURSDNN RIR 3J0NNN&RRRANKRRR 
"E. 2. Bo NRNNJRNNRNRNB V JR255NGD2  2«NNN Jk  3423NNNAAARRNNU& 

MUR 38 SJNNNRNNN224N. VV J«32VNVBJ PBKNNNN JRRR  SNNNNRA&RRUNJUR 
0*2 3003 22NNRNNRNNRRRNG VYJIRRENVS JRRBGNNNJJIRRX RRENNNRRIRRJRIR 


ΜΝΉΜΗ». JRNNNIRNDRNNJISRNBEY 2 Ru RJ 


= 


NNN D2BURNNONNNURNNNANNUD BJJ —RKJIJR JRQNVVBJ RKJUNNN22RRUNNAX 
UNN = Bb3RNNJIZNJRNNUNNN VY IRJIRRR ^RJJARNNBBU RRRNNNRRRRIRRR 
NN 24% NNNNNNNNNNNNRNNNB — VUJRR J«R 244 SRBBGb RKRRNNNRRRRJRNR 


O"79G2AMME TERMINE 
στ 
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JR2NNNJJNR BVBBVBVVVBNDBdJ 
BBNNDBBD ^JABDBNVVBBBVBVBVNO | JS34NNNURS3RBDbDBBSNVBEVBGURJRNDVC 
DBNNNVVNB2JJ4BVbBNVNBNOVNVNBBD23 JRR NNNNJNRRZ VYYNVYNVYVYBVBN κ ΟΥ 


VBNVBNVVVBNNBBVDBJJJUS3NNNRRARNNAR. 


dix VYDisb 


BNVVEV EN 
JR VND ΡΟ DE D 


X DN ν hi 
τη, 
NJJRVEENSVEV JA: 
NR RKNBVBBNBN JR: 
NNRRBVGBVVBNU3xmx 
NJJRNJRNINN:2R 2 
JKRNRKRENKKXX Pós 
JJJNdJJN σπα. 
JNNNJNKRRJN2 JJR 
ai NNVNNR NR UR JJ 
JIRRBENNJJIKRJ Jt 
JNR NNBNNJNRR Jdu 
JRR NVBNNNN«XKJ 33 


J:SVVB8 JURKNNNNRRKRJRRNJIJIRJRJNVBNNE GNN 


ο Anis NRK BbBNNDONN 
NNN UNI RVNNNSNNN 
NJRRNJRRBNNNSNNN 


m 
- 


eye ἂς δε yes 


edes 


k 


X E μα + j^ 
dA 


var. 


X 


` l^ 


ee mh “Age deese 


> η 
TONO 


D 


* 
at 
dE 


š 


Labbe 
4 


det 
Hx 


PINE ος 
VEN 


Δ 
αἱ 


is n NA TAE, 
wa dni As 


e 


fa 


VN JNE, JADE: 
* e 


i-r Red 
` ¿š A OS 


* 
pá 


+ 


che 


1 
à 


at 


* 
Fa 


TEELE 


3 
^ 


+. 
ESKO 


$ 
x. 


elle que ch 


29/ Etant donné d 


rectement 


à—— KITA, — νο σουτ νο ST ο TD MR AM REI Nm DAT AE n Lm ERA an inet TR ea ο ANI ao rer i wa I SN aza ei utn Σολ e Aet Von E AC Ue Vous DA 47 U FTN DEN NR VEN λακτόζη CALI Mo e Pr Dar li n c — am A 


* 


(1) Voir 1'e 
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REMARQUE : 


P a : = ` C η 4 ` W μ᾽ T". i= H i £ d U 3 ἐν pm - id = < pn 4 ^ t Y i i š 
La suite finie s, considérée plus haut est l'indicotion de la succes 
- - s en ^ ` yta ο xo^ ον 4 SA ot : o pt aa 2% <! Şi CE t τ 1 ^ P i * TN ΠῚ E 1 Le y^ ^ & 
Sion d GS móuvsmen S des 9. COS Cerf lig prob i Geo COCTU SOUS E e nom de "m tour 
3 wet . "wer * J ^ ες r5 4. E JA oer 
de Hanof' lorsque l'on dispose de i "disquos', 
desee 


«κος este 


FERE 
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=== —— dite Bhá gus Séis sec ama PEE wam amu ms er kap --. RN 


Le présent.bulletin réponà à une visée toute didactique : livrer sous 
. forme accessible aux nouveaux venus dans les groupes de travail courants. 
| = de l'information t technique et bibliographique en rapport avec leurs 
disciplines ; 

- des programmes commentés de tous niveaux permettant un accès relati- 
vement rapide à des techniques de ποπ a eppropiées , ainsi qu'une 


implémentation aisée. 


On s'est efforcé, dans la mesure du possible, de ne pas établir de 
clivage trop net entre les disciplines artistiques et scientifiques concer- 
nées (musique, arts. plastiques, poésie, architecture, logique, informatique), 
mais tout au contraire, ne serait-ce que par des technigues de programmation 


communes. 

L' aspect pédagogique du présent bulletin reflöte une préoccupation 
constante du groupe, à savoir ne pas se satisfaire en. dernier ressort de. 
méthodes de programmation trop élémentaires. 

Le contenu des textes ct des programmes n'engage que leurs auteurs. 

/ 

Pour tous renseignements et composition. des livraisons à venir, s'adres- 

ser à Jacques ARVEILLER, Département d'Informatique, Université PARIS VIII, 


| Route de 18 Tourelle, Paris XII. 


Pour tout envoi, s'adresser à Patrick GREUSSAY, méme adresse. 
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